home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / MacOberon241.cpt / MacOberon 2.4(1) / MacMenus.Mod (.txt) < prev    next >
Oberon Text  |  1991-10-17  |  4KB  |  69 lines
  1. Syntax10.Scn.Fnt
  2. MODULE MacMenus;    (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
  3.     IMPORT
  4.         TY:= MacTypes;
  5.     CONST
  6.         (* Mark symbol for MarkItem *)
  7.             noMark= 0;
  8.         (* Menu defProc messages. *)
  9.             mDrawMsg*= 0; mChooseMsg*= 1; mSizeMsg*= 2;
  10.         (* Resource ID of standard menu definition procedure. *)
  11.             textMenuProc*= 0;
  12.         hMenuCmd*= 1BH;    (* itemCmd = 0x001B ==> hierarchical menu attached to this item *)
  13.         hierMenu*= -1;    (* a hierarchical menu - for InsertMenu call *)
  14.         mPopUpMsg*= 3;    (* menu defProc message *)
  15.         mctAllItems*= -98;    (* search for all Items for the given ID *)
  16.     TYPE
  17.         Style= INTEGER;    (* SET OF StyleItem *)
  18.         MenuInfo*= RECORD
  19.             menuID*: INTEGER;
  20.             menuWidth*, menuHeight*: INTEGER;
  21.             menuProc: TY.ProcHandle;
  22.             enableFlags*: SET;
  23.             menuData*: TY.Str255
  24.         END;
  25.         MenuPtr*= POINTER- TO MenuInfo;
  26.         MenuHandle*= POINTER- TO RECORD p*: MenuPtr END;
  27.     PROCEDURE - InitMenus*()    0A9H, 030H;
  28.     PROCEDURE - NewMenu*(menuID: INTEGER; menuTitle: TY.Str255): MenuHandle    0A9H, 031H;
  29.     PROCEDURE - GetMenu*(resourceID: INTEGER): MenuHandle    0A9H, 0BFH;
  30.     PROCEDURE - DisposeMenu*(theMenu: MenuHandle)    0A9H, 032H;
  31.     PROCEDURE - AppendMenu*(menu: MenuHandle; data: TY.Str255)    0A9H, 033H;
  32.     PROCEDURE - AddResMenu*(theMenu: MenuHandle; theType: TY.ResType)    0A9H, 04DH;
  33.     PROCEDURE - InsertResMenu*(theMenu: MenuHandle; theType: TY.ResType; afterItem: INTEGER)    0A9H, 051H;
  34.     PROCEDURE - InsertMenu*(theMenu: MenuHandle; beforeID: INTEGER)    0A9H, 035H;
  35.     PROCEDURE - DrawMenuBar*()    0A9H, 037H;
  36.     PROCEDURE - DeleteMenu*(menuID: INTEGER)    0A9H, 036H;
  37.     PROCEDURE - ClearMenuBar*()    0A9H, 034H;
  38.     PROCEDURE - GetNewMBar*(menuBarID: INTEGER): TY.Handle    0A9H, 0C0H;
  39.     PROCEDURE - GetMenuBar*(): TY.Handle    0A9H, 03BH;
  40.     PROCEDURE - SetMenuBar*(menuList: TY.Handle)    0A9H, 03CH;
  41.     PROCEDURE - InsMenuItem*(theMenu: MenuHandle; itemString: TY.Str255; afterItem: INTEGER)    0A8H, 026H;
  42.     PROCEDURE - DelMenuItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 052H;
  43.     PROCEDURE - MenuKey*(ch: TY.UnpackedChar): LONGINT    0A9H, 03EH;
  44.     PROCEDURE - HiliteMenu*(menuID: INTEGER)    0A9H, 038H;
  45.     PROCEDURE - SetItem*(theMenu: MenuHandle; item: INTEGER; itemString: TY.Str255)    0A9H, 047H;
  46.     PROCEDURE - GetItem*(theMenu: MenuHandle; item: INTEGER; VAR itemString: TY.Str255)    0A9H, 046H;
  47.     PROCEDURE - DisableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 03AH;
  48.     PROCEDURE - EnableItem*(theMenu: MenuHandle; item: INTEGER)    0A9H, 039H;
  49.     PROCEDURE - CheckItem*(theMenu: MenuHandle; item: INTEGER; checked: BOOLEAN)    0A9H, 045H;
  50.     PROCEDURE - SetItemMark*(theMenu: MenuHandle; item: INTEGER; markChar: TY.UnpackedChar)    0A9H, 044H;
  51.     PROCEDURE - GetItemMark*(theMenu: MenuHandle; item: INTEGER; VAR markChar: TY.UnpackedChar)    0A9H, 043H;
  52.     PROCEDURE - SetItemIcon*(theMenu: MenuHandle; item: INTEGER; icon: TY.UnpackedByte)    0A9H, 040H;
  53.     PROCEDURE - GetItemIcon*(theMenu: MenuHandle; item: INTEGER; VAR iconNum: TY.UnpackedByte)    0A9H, 03FH;
  54.     PROCEDURE - SetItemStyle*(theMenu: MenuHandle; item, chStyle: INTEGER)    0A9H, 042H;
  55.     PROCEDURE - GetItemStyle*(theMenu: MenuHandle; item: INTEGER; VAR chStyle: Style)    0A9H, 041H;
  56.     PROCEDURE - CalcMenuSize*(theMenu: MenuHandle)    0A9H, 048H;
  57.     PROCEDURE - CountMItems*(theMenu: MenuHandle): INTEGER    0A9H, 050H;
  58.     PROCEDURE - GetMHandle*(menuID: INTEGER): MenuHandle    0A9H, 049H;
  59.     PROCEDURE - FlashMenuBar*(menuID: INTEGER)    0A9H, 04CH;
  60.     PROCEDURE - SetMenuFlash*(count: INTEGER)    0A9H, 04AH;
  61.     PROCEDURE - MenuSelect*(startPt: TY.Point): LONGINT    0A9H, 03DH;
  62.     PROCEDURE - InitProcMenu*(resID: INTEGER)    0A8H, 008H;
  63.     PROCEDURE - GetItemCmd*(theMenu: MenuHandle; item: INTEGER; VAR cmdChar: TY.UnpackedChar)    0A8H, 04EH;
  64.     PROCEDURE - SetItemCmd*(theMenu: MenuHandle; item: INTEGER; cmdChar: TY.UnpackedChar)    0A8H, 04FH;
  65.     PROCEDURE - PopUpMenuSelect*(menu: MenuHandle; top, left, popUpItem: INTEGER): LONGINT    0A8H, 00BH;
  66.     PROCEDURE - MenuChoice*(): LONGINT    0AAH, 066H;
  67.     PROCEDURE - MBarHeight*(): INTEGER    03EH, 0B8H, 00BH, 0AAH;    (* MOVE.W $0BAA, (A7) *)
  68. END MacMenus.
  69.